home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1988 September & October / rerun-1988-09-10a.d64 / bandit hi-scores (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  612b  |  20 lines
  1. 10 a$=chr$(34):print"[147]    hi-score for rubber bandit ball     "
  2. 20 print"this program generates the high score"
  3. 30 print"file onto whatever disk you use with"
  4. 40 print"the game rubber bandit ball."
  5. 50 print"use this program whenever you wish"
  6. 60 print"to clear the hi-score file."
  7. 70 print"be sure to scratch the file called"
  8. 80 printa$"topten.o"a$" then run this program."
  9. 90 print"this program must be run at least once"
  10. 100 print"before using rubber bandit ball."
  11. 110 forx=6*4096to6*4096+59
  12. 120 reada:c=c+1:ifc=6then c=0:restore
  13. 130 pokex,a:next
  14. 140 data 1,1,1,0,0,0
  15. 150 open1,8,1,"0:topten.o"
  16. 160 poke780,253
  17. 170 poke253,0:poke254,96
  18. 180 poke781,60:poke782,96
  19. 190 sys 65496:close1:end
  20.